データに従って文字を描かせる。

10 SET WINDOW 0,500,500,0

   DATA 50,100,0,1

   DATA 55,100,1,0.5

   DATA 90,125,-1,0.5

   DATA 55,150,1,0.5

   DATA 90,175,-1,0.5

   DATA 120,190,0.25,-1

   DATA 145,100,0.25,1

   DATA 130,160,1,0.25

   DATA 240,105,-1,0.5

   DATA 205,120,0.5,1

   DATA 240,180,-1,0.5

   DATA 280,100,0,1

   DATA 330,100,0,1

   DATA 335,100,1,0.5

   DATA 365,175,-1,0.5

50 READ IF MISSING THEN 2000 : m,n,p,q

110 LET x=x+p

    LET y=y+q

    SET COLOR "black"   

    DRAW circle WITH SCALE(2)*SHIFT(m+x,n+y)

    SET COLOR "white"      

    DRAW disk WITH SCALE(1.9)*SHIFT(m+(x-1),n+y-1)

200 IF x>30 THEN GOTO 1000

220 IF y>90 THEN GOTO 1000

230 IF x<-30 THEN GOTO 1000

240 IF y<-90 THEN GOTO 1000

260 IF x=0 THEN GOTO 280

280 IF y=0 THEN GOTO 1000 

300 FOR ti=0 TO 100000

    NEXT ti

    GOTO 110

1000 LET x=0

     LET y=0

     GOTO 50

2000 END

色を作る。10,10,10　のように赤、緑、青の数値を入力する。

SET WINDOW  0 , 310 , 300 , 0

10 INPUT x1,x2,x3

PRINT x1,x2,x3   

   LET r=x1

   LET g=x2

   LET b=x3

   SET COLOR MIX(80) r,g,b

   SET AREA COLOR 80

   PLOT AREA:0,0;0,310;310,310;310,0

2200 GOTO 10

  END

団子くしざしゲーム

5 SET WINDOW 0,300,300,0

50

   LET a=30

   LET b=0

   LET i1=4

   LET c=60

   LET d=0

   LET i2=5

   LET e=90

   LET f=0

   LET i3=6

   LET g=120

   LET h=0

   LET i4=7

   LET i=180

   LET j=0

   LET i5=8

   LET k=210

   LET l=0

   LET i6=9

   LET m=240

   LET n=0

   LET i7=10

   LET o=270

   LET p=0

   LET i8=11

   LET c1=5

   LET c2=13

   LET c3=24

   LET c7=43

   LET c9=240

   LET c10=52

   LET c13=56

   LET c14=206

   LET c4=0

   LET c5=0

   LET c6=0

   LET c8=0

   LET c11=0

   LET c12=0

   LET c15=0

   LET c16=0

   LET d4=0

   LET d5=0

   LET d6=0

   LET d8=0

   LET d11=0

   LET d12=0

   LET d15=0

   LET d16=0

60 FOR ti=1 TO 10000

   NEXT ti

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   LET co=co+1

70 LET b=b+i1

   LET d=d+i2

   LET f=f+i3

   LET h=h+i4

   LET j=j+i5

   LET l=l+i6

   LET n=n+i7

   LET p=p+i8

80 SET AREA COLOR c1

   DRAW disk WITH SCALE(8)*SHIFT(b,a)

   SET AREA COLOR c2

   DRAW disk WITH SCALE(8)*SHIFT(d,c)

   SET AREA COLOR c3

   DRAW disk WITH SCALE(8)*SHIFT(f,e)

   SET AREA COLOR c7

   DRAW disk WITH SCALE(8)*SHIFT(h,g)

   SET AREA COLOR c9

   DRAW disk WITH SCALE(8)*SHIFT(j,i)

   SET AREA COLOR c10

   DRAW disk WITH SCALE(8)*SHIFT(l,k)

   SET AREA COLOR c13

   DRAW disk WITH SCALE(8)*SHIFT(n,m)

   SET AREA COLOR c14

   DRAW disk WITH SCALE(8)*SHIFT(p,o)

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET y = y-2

   IF a$ = "j" THEN LET x = x-2

   IF a$ = "l" THEN LET x = x+2

   IF a$ = "m" THEN LET y = y+2

   SET LINE COLOR 27

   SET LINE WIDTH 5

   PLOT LINES : 150+x,150+y;150+x,250+y

   SET COLOR c4

   DRAW disk WITH SCALE(d4)*SHIFT(150+x,150+y)

   SET COLOR c5

   DRAW disk WITH SCALE(d5)*SHIFT(150+x,160+y)

   SET COLOR c6

   DRAW disk WITH SCALE(d6)*SHIFT(150+x,170+y)

   SET COLOR c8

   DRAW disk WITH SCALE(d8)*SHIFT(150+x,180+y)

   SET COLOR c11

   DRAW disk WITH SCALE(d11)*SHIFT(150+x,190+y)

   SET COLOR c12

   DRAW disk WITH SCALE(d12)*SHIFT(150+x,200+y)

   SET COLOR c15

   DRAW disk WITH SCALE(d15)*SHIFT(150+x,210+y)

   SET COLOR c16

   DRAW disk WITH SCALE(d16)*SHIFT(150+x,220+y)

   FOR ti=1 TO 100000

   NEXT ti

   IF 150+x<b+5 THEN GOTO 91  ELSE GOTO 92

91 IF 150+x>b-5 THEN GOTO 110

92 IF 150+x<d+5 THEN GOTO 93  ELSE GOTO 94

93 IF 150+x>d-5 THEN GOTO 120

94 IF 150+x<f+5 THEN GOTO 95  ELSE GOTO 96

95 IF 150+x>f-5 THEN GOTO 130

96 IF 150+x<h+5 THEN GOTO 97  ELSE GOTO 98

97 IF 150+x>h-5 THEN GOTO 140

98 IF 150+x<j+5 THEN GOTO 99  ELSE GOTO 100

99 IF 150+x>j-5 THEN GOTO 150

100 IF 150+x<l+5 THEN GOTO 101 ELSE GOTO 102

101 IF 150+x>l-5 THEN GOTO 200

102 IF 150+x<n+5 THEN GOTO 103 ELSE GOTO 104

103 IF 150+x>n-5 THEN GOTO 210

104 IF 150+x<p+5 THEN GOTO 105 ELSE GOTO 106

105 IF 150+x>p-5 THEN GOTO 220

106 GOTO 2160

110 IF 150+y<a+5 THEN GOTO 111 ELSE GOTO 2160

111 IF 150+y>a-5 THEN GOTO 1130

120 IF 150+y<c+5 THEN GOTO 121 ELSE GOTO 2160

121 IF 150+y>c-5 THEN GOTO 1140

130 IF 150+y<e+5 THEN GOTO 131 ELSE GOTO 2160

131 IF 150+y>e-5 THEN GOTO 1150

140 IF 150+y<g+5 THEN GOTO 141 ELSE GOTO 2160

141 IF 150+y>g-5 THEN GOTO 1180

150 IF 150+y<i+5 THEN GOTO 151 ELSE GOTO 2160

151 IF 150+y>i-5 THEN GOTO 1230

200 IF 150+y<k+5 THEN GOTO 201 ELSE GOTO 2160

201 IF 150+y>k-5 THEN GOTO 1240

210 IF 150+y<m+5 THEN GOTO 211 ELSE GOTO 2160

211 IF 150+y>m-5 THEN GOTO 1250

220 IF 150+y<o+5 THEN GOTO 221 ELSE GOTO 2160

221 IF 150+y>o-5 THEN GOTO 1260

    GOTO 2160

1130 LET c1=0

     LET c4=5

     LET d4=8

     GOTO 2160

1140 LET c2=0

     LET c5=13

     LET d5=8

     GOTO 2160

1150 LET c3=0

     LET c6=24

     LET d6=8

     GOTO 2160

1180 LET c7=0

     LET c8=43

     LET d8=8

     GOTO 2160

1230 LET c9=0

     LET c11=240

     LET d11=8

     GOTO 2160

1240 LET c10=0

     LET c12=52

     LET d12=8

     GOTO 2160

1250 LET c13=0

     LET c15=56

     LET d15=8

     GOTO 2160

1260 LET c14=0

     LET c16=206

     LET d16=8

     GOTO 2160

2160 IF b>300 THEN GOTO 2300

     IF d>300 THEN GOTO 2400

     IF f>300 THEN GOTO 2500

     IF h>300 THEN GOTO 2700

     IF j>300 THEN GOTO 2800

     IF l>300 THEN GOTO 2900

     IF n>300 THEN GOTO 21000

     IF p>300 THEN GOTO 21100

2270 GOTO 60

2300 RANDOMIZE

     LET i1=1+INT(4*RND)

     LET b=0

     LET a=INT(100*RND)

     GOTO 80

2400 RANDOMIZE

     LET i2=1+INT(4*RND)

     LET d=0

     LET c=INT(200*RND)

     GOTO 80

2500 RANDOMIZE

     LET i3=1+INT(4*RND)

     LET f=0

     LET e=INT(280*RND)

     GOTO 80

2700 RANDOMIZE

     LET i4=1+INT(4*RND)

     LET h=0

     LET g=INT(280*RND)

     GOTO 80

2800 RANDOMIZE

     LET i5=1+INT(4*RND)

     LET j=0

     LET i=INT(280*RND)

     GOTO 80

2900 RANDOMIZE

     LET i6=1+INT(4*RND)

     LET l=0

     LET k=INT(280*RND)

     GOTO 80

21000 RANDOMIZE

      LET i7=1+INT(4*RND)

      LET n=0

      LET m=INT(280*RND)

      GOTO 80

21100 RANDOMIZE

      LET i8=1+INT(4*RND)

      LET p=0

      LET o=INT(280*RND)

      GOTO 80

22600 SET TEXT COLOR 1

      PLOT TEXT,AT 200,200:"point"

      GOTO 60

      END

ビッグバン

5 SET WINDOW 0,300,300,0

  LET t = 50

  LET count = 100

  LET num = 0

  DIM POSX(count)

  DIM POSY(count)

  DIM SCALE(count)

  DIM COLOR(count)

10 FOR i=1 TO count

      LET POSX(i) = INT(300*RND)

      LET POSY(i) = INT(300*RND)

      LET SCALE(i) = INT(5*RND+1)

   NEXT i

20 FOR i=1 TO 10000

   NEXT i

   SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

30 FOR ti=1 TO count

40    IF POSX(ti) = 150 THEN

      ELSE

         IF POSX(ti) < 150 THEN

            LET POSX(ti) = POSX(ti) + (150 - POSX(ti)) / t

         ELSE

            LET POSX(ti) = POSX(ti) - (POSX(ti) - 150) / t

         END IF

      END IF

50    IF POSY(ti) = 150 THEN

      ELSE

         IF POSY(ti) < 150 THEN

            LET POSY(ti) = POSY(ti) + (150 - POSY(ti)) / t

         ELSE

            LET POSY(ti) = POSY(ti) - (POSY(ti) - 150) / t

         END IF

      END IF

60    SET AREA COLOR 1

      DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

70    IF POSX(ti) > 149.5 AND POSX(ti) < 150.5 THEN

         IF POSY(ti) > 149.5 AND POSY(ti) < 150.5 THEN

            LET num = num + 1

         END IF

      END IF

80 NEXT ti

90 IF num = count THEN

      GOTO 110

   ELSE

      LET num = 0

   END IF

100 GOTO 20

110 FOR i=1 TO 1000000

    NEXT i

120 FOR i=1 TO count

       LET POSX(i) = INT(300*RND)

       LET POSY(i) = INT(300*RND)

       LET SCALE(i) = INT(5*RND+1)

       LET COLOR(i) = INT(14*RND+2)

    NEXT i

130 SET AREA COLOR 0

    PLOT AREA : 0,0;300,0;300,300;0,300;0,0

140 FOR ti=1 TO count

       SET AREA COLOR COLOR(ti)

       DRAW disk WITH SCALE(SCALE(ti))*SHIFT(POSX(ti),POSY(ti))

    NEXT ti

150 FOR i=1 TO 5000000

    NEXT i

160 LET num = 0

    GOTO 20

    END

魔法陣

10 DECLARE EXTERNAL PICTURE tri

   OPTION ANGLE DEGREES

   SET WINDOW -1.5,1.5,1.5,-1.5

   SET AREA COLOR 1

   REM FOR r=0 TO 1

   SET AREA COLOR 1

   PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (60),COS (60);SIN (180),COS(180);SIN(300),COS(300);sin(60),cos(60)

   FOR ti=0 TO 1000000

   NEXT ti

   SET AREA COLOR 1

   DRAW circle WITH SCALE(1)*SHIFT(0,0)

   PLOT LINES:SIN (0),COS (0);SIN (120),COS(120);SIN(240),COS(240);sin(0),cos(0)

   FOR ti=0 TO 1000000

   NEXT ti

   PLOT LINES:(SIN (30))/2,(COS (30))/2;(SIN (150))/2,(COS(150))/2;(SIN(270))/2,(COS(270))/2;(SIN(30))/2,(COS(30))/2

   plot LINES:(SIN (30))/2.2,(COS (30))/2.2;(SIN (150))/2.2,(COS(150))/2.2;(SIN(270))/2.2,(COS(270))/2.2;(SIN(30))/2.2,(COS(30))/2.2

   FOR ti=0 TO 1000000

   NEXT ti

   PLOT LINES:(SIN (90))/2,(COS (90))/2;(SIN (210))/2,(COS(210))/2;(SIN(330))/2,(COS(330))/2;(sin(90))/2,(cos(90))/2

   PLOT LINES:(SIN (90))/2.2,(COS (90))/2.2;(SIN (210))/2.2,(COS(210))/2.2;(SIN(330))/2.2,(COS(330))/2.2;(SIN(90))/2.2,(COS(90))/2.2

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.5)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,-0.67)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,0.33)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

   DRAW circle WITH SCALE(0.145)*SHIFT(0,0.67)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,0.33)

   FOR ti=0 TO 1000000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(0.58,-0.33)

   FOR ti=0 TO 100000

   NEXT ti

   SET LINE COLOR 5

   SET LINE STYLE 1

   DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

   DRAW circle WITH SCALE(0.145)*SHIFT(-0.58,-0.33)

   FOR ti=0 TO 2000000

   NEXT ti

   FOR th=0 TO 360 STEP 30

      DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(th)+0.02,1.12*cos(th)+0.9)

   NEXT th

   FOR ti=0 TO 2000000

   NEXT ti

50 FOR rt=0 TO 360

      SET AREA COLOR 1

      PLOT AREA:-1.5,1.5;1.5,1.5;1.5,-1.5;-1.5,-1.5

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(1.25)*SHIFT(0,0)

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(1.22)*SHIFT(0,0)

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(1.03)*SHIFT(0,0)

      DRAW circle WITH SCALE(0.90)*SHIFT(0,0)

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      PLOT LINES:SIN (60+rt),COS (60+rt);SIN (180+rt),COS(180+rt);SIN(300+rt),COS(300+rt);SIN(60+rt),COS(60+rt)

      PLOT LINES:(SIN (90+rt))/2,(COS (90+rt))/2;(SIN (210+rt))/2,(COS(210+rt))/2;(SIN(330+rt))/2,(COS(330+rt))/2;(sin(90+rt))/2,(cos(90+rt))/2

      PLOT LINES:(SIN (90+rt))/2.2,(COS (90+rt))/2.2;(SIN (210+rt))/2.2,(COS(210+rt))/2.2;(SIN(330+rt))/2.2,(COS(330+rt))/2.2;(SIN(90+rt))/2.2,(COS(90+rt))/2.2

      SET AREA COLOR 1

      DRAW circle WITH SCALE(1)*SHIFT(0,0)

      PLOT LINES:SIN (0+rt),COS (0+rt);SIN (120+rt),COS(120+rt);SIN(240+rt),COS(240+rt);SIN(0+rt),COS(0+rt)

      PLOT LINES:(SIN (30+rt))/2,(COS (30+rt))/2;(SIN (150+rt))/2,(COS(150+rt))/2;(SIN(270+rt))/2,(COS(270+rt))/2;(SIN(30+rt))/2,(COS(30+rt))/2

      plot LINES:(SIN (30+rt))/2.2,(COS (30+rt))/2.2;(SIN (150+rt))/2.2,(COS(150+rt))/2.2;(SIN(270+rt))/2.2,(COS(270+rt))/2.2;(SIN(30+rt))/2.2,(COS(30+rt))/2.2

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(0.5)*SHIFT(0,0)

      SET LINE COLOR 5

      SET LINE STYLE 1

      DRAW circle WITH SCALE(0.47)*SHIFT(0,0)

      SET LINE COLOR 5

      SET LINE STYLE 1

55    REM DRAW circle WITH SCALE(0.165)*SHIFT(0,-0.67)

60    DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(240+rt) ,0.67*COS(240+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(300+rt),0.67*COS(300+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0,0.67)

      DRAW circle WITH SCALE(0.165)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(-0.67*SIN(180+rt),-0.67*COS(180+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(420+rt),0.67*COS(420+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(480+rt),0.67*COS(480+rt))

      SET LINE COLOR 5

      SET LINE STYLE 1

      REM DRAW circle WITH SCALE(0.165)*SHIFT(-0.58,-0.33)

      DRAW circle WITH SCALE(0.165)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      DRAW circle WITH SCALE(0.145)*SHIFT(0.67*SIN(180+rt),0.67*COS(180+rt))

      FOR th=0 TO 0 STEP 30

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(180+rt)+0.02,1.12*cos(180+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(210+rt)+0.02,1.12*COS(210+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(240+rt)+0.02,1.12*COS(240+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(270+rt)+0.02,1.12*COS(270+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(300+rt)+0.02,1.12*COS(300+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(330+rt)+0.02,1.12*COS(330+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*sin(360+rt)+0.02,1.12*cos(360+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(390+rt)+0.02,1.12*COS(390+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(420+rt)+0.02,1.12*COS(420+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(450+rt)+0.02,1.12*COS(450+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(480+rt)+0.02,1.12*COS(480+rt)+0.9)

         DRAW tri(3)WITH ROTATE(-100/75)*SCALE(0.8)*SHIFT(1.12*SIN(510+rt)+0.02,1.12*COS(510+rt)+0.9)

      NEXT th

      FOR ti=0 TO 200000

      NEXT ti

   NEXT rt

   END

100 EXTERNAL PICTURE tri(n)

    PLOT LINES: 0,-1.19;0.1,-1.05;-0.1,-1.05;0,-1.19;

    PLOT LINES: 0,-1.05;0.1,-1.19;-0.1,-1.19;0,-1.05;

    END PICTURE

生き方さがし

 10 CLEAR

   SET AREA COLOR 24

   SET TEXT COLOR 25

   SET WINDOW 0 , 300 , 300 ,0

   SET TEXT FONT "ＭS ゴシック",15

   PLOT TEXT ,AT 60,100 :"?独り身でいる"

   PLOT TEXT ,AT 60,140 :"?女友達と遊ぶ"

   SET TEXT FONT "ＭS ゴシック",20

   PLOT TEXT ,AT 61,180 :"??イケメンとの出会いを探しにいく"

   SET TEXT FONT "ＭS ゴシック",10

   PLOT TEXT ,AT 200,220 :"Sキーで進む"

100 CHARACTER INPUT CLEAR: s$

    IF s$ = "s" THEN GOTO 200

200 CLEAR

300 RANDOMIZE

500 LET ikmn=INT(RND*14+1)

600 IF ikmn=1 THEN

       SET TEXT FONT "ＭS 明朝",35

       SET TEXT COLOR 16

       PLOT TEXT ,AT 120,150 :"イケメン"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 120,200 :"やったね！"

    ELSEIF ikmn=2 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 25

       PLOT TEXT ,AT 130,150 :"モブ顔"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 10

       PLOT TEXT ,AT 130,200 :"ぼちぼち"

    ELSEIF ikmn=3 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 38

       PLOT TEXT ,AT 110,150 :"犬顔男子"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 130,200 :"可愛い"

    ELSEIF ikmn=4 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 69

       PLOT TEXT ,AT 100,150 :"雰囲気イケメン"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 8

       PLOT TEXT ,AT 130,200 :"おしい…"

    ELSEIF ikmn=5 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 54

       PLOT TEXT ,AT 90,100 :"超どストライク"

       PLOT TEXT ,AT 135,140 :"イケメン"

       SET TEXT FONT "ＭS 明朝",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 100,190 :"神様ありがとう！"

    ELSEIF ikmn=6 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 130,150 :"キモオタ"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 13

       PLOT TEXT ,AT 90,200 :"デュフフじゃねえよ"

    ELSEIF ikmn=7 THEN

       SET TEXT FONT "ＭS 明朝",35

       SET TEXT COLOR 27

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"（ブス）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 2

       PLOT TEXT ,AT 130,200 :"残念"

    ELSEIF ikmn=8 THEN

       SET TEXT FONT "ＭS 明朝",35

       SET TEXT COLOR 56

       PLOT TEXT ,AT 90,110 :"インテリ眼鏡"

       PLOT TEXT ,AT 100,150 :"（イケメン）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 29

       PLOT TEXT ,AT 130,200 :"最高！"

    ELSEIF ikmn=9 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 15

       PLOT TEXT ,AT 150,150 :"ハゲ"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 59

       PLOT TEXT ,AT 120,200 :"ザビエルwww"

    ELSEIF ikmn=10 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 105,150 :"（イケメン）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 24

       PLOT TEXT ,AT 100,200 :"抱きしめられたい"

    ELSEIF ikmn=11 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 70

       PLOT TEXT ,AT 100,110 :"ゴリマッチョ"

       PLOT TEXT ,AT 120,150 :"（ゴリラ）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 90,200 :"バナナをあげよう"

    ELSEIF ikmn=12 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 80

       PLOT TEXT ,AT 130,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"（イケメン）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 17

       PLOT TEXT ,AT 110,200 :"カムサハムニダ"

    ELSEIF ikmn=13 THEN

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 72

       PLOT TEXT ,AT 110,110 :"塩顔男子"

       PLOT TEXT ,AT 115,150 :"（微妙）"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 72

       PLOT TEXT ,AT 120,200 :"うん。。。"

    ELSE

       SET TEXT FONT "ＭS ゴシック",35

       SET TEXT COLOR 12

       PLOT TEXT ,AT 120,130 :"ブサイク"

       SET TEXT FONT "ＭS ゴシック",30

       SET TEXT COLOR 1

       PLOT TEXT ,AT 120,180 :"ドンマイ"

    END IF

900 CHARACTER INPUT CLEAR: s$

    IF s$ = "s" THEN GOTO 10

1000 END

桃太郎を捕まえろ

5 SET WINDOW 0,300,300,0

50 LET a=30

   LET b=0

   LET i=5

   LET c=0

   LET d=0

   LET m=4

   LET e=230

   LET f=0

   LET k=7

   LET c1=1

   LET c2=1

   LET c3=1

   LET c4=0

   LET c5=0

   LET c6=0

   REM FOR ti=1 TO 50000

   rem NEXT ti

60 SET AREA COLOR 0

   PLOT AREA : 0,0;300,0;300,300;0,300;0,0

   FOR j=1 TO 300

      SET POINT COLOR "blue"

      LET xa=150+(j/2)*SIN(j*5)

      LET ya=j

      PLOT POINTS: xa-j/10 , ya

      PLOT POINTS: xa+j/10 , ya

   NEXT j

70 REM LET b=b+i

   REM LET d=d+1

   rem LET c=c+1

80 SET AREA COLOR c1

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

   SET AREA COLOR 15

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

   SET AREA COLOR 15

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

   SET AREA COLOR 1

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

   SET AREA COLOR 1

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c2

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

   SET AREA COLOR 15

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

   SET AREA COLOR 1

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   SET AREA COLOR c3

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

   SET AREA COLOR 15

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

   SET AREA COLOR 1

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET b = b-2

   IF a$ = "j" THEN LET a = a-2

   IF a$ = "k" THEN LET b = b

   IF a$ = "k" THEN LET a = a

   IF a$ = "l" THEN LET a = a+2

   IF a$ = "m" THEN LET b = b+2

   SET COLOR c4

   DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   SET COLOR c5

   DRAW disk WITH SCALE(8)*SHIFT(150+x,170+y)

   SET COLOR c6

   DRAW disk WITH SCALE(10)*SHIFT(150+x,200+y)

   SET LINE COLOR 4

   SET LINE WIDTH 10

   REM PLOT LINES : 150+x,150+y;150+x,250+y

   SET AREA COLOR 124

   PLOT AREA:a-3,b+3;a+3,b+3;a+3,b+18;a-3,b+18

   SET AREA COLOR 52

   PLOT AREA:a-8,b+5;a-3,b+5;a-3,b+3;a-8,b+3

   PLOT AREA:a-8,b+8;a-3,b+8;a-3,b+6;a-8,b+6

   PLOT AREA:a-3,b+18;a-1,b+18;a-1,b+20;a-3,b+20

   PLOT AREA:a+1,b+18;a+3,b+18;a+3,b+20;a+1,b+20

   SET AREA COLOR 205

   PLOT AREA:a-3,b+8.5;a+3,b+8.5;a+3,b+11.5;a-3,b+11.5

   SET AREA COLOR 15

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   DRAW disk WITH SCALE(3)*SHIFT(a+3,b-3)

   SET AREA COLOR 52

   DRAW disk WITH SCALE(5)*SHIFT(a-1,b+1)

   DRAW disk WITH SCALE(1.5)*SHIFT(a+4,b+1.2)

   SET AREA COLOR 1

   DRAW disk WITH SCALE(0.5)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.5)*SHIFT(a-3,b)

   SET AREA COLOR 0

   DRAW disk WITH SCALE(0.25)*SHIFT(a+1,b)

   DRAW disk WITH SCALE(0.25)*SHIFT(a-3,b)

   SET AREA COLOR 115

   PLOT AREA:a-2.5,b+3;a,b+3;a,b+3.5;a-2.5,b+3.5

   SET AREA COLOR 130

   PLOT AREA:a-3,b+5;a-3,b+4;a-2.5,b+2;a-2.5,b+3

   SET AREA COLOR 130

   PLOT AREA:a,b+2;a+0.5,b+4;a+0.5,b+5;a,b+3

   REM " momo"

   LET i=i+0.5

   LET d=150+(i/2)*SIN(i*2)

   LET c=c+1

   SET AREA COLOR 11

   PLOT AREA:d+10,c+5;d+2,c;d+2,c+5;d+10,c+5

   REM PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

   set COLOR 24

   DRAW disk WITH SCALE(5)*SHIFT(d-3,c)

   DRAW disk WITH SCALE(5)*SHIFT(d+3,c)

   SET AREA COLOR 24

   PLOT AREA:d-7,c-3.5;d,c-10;d+7,c-3.5;d-7,c-3.5

   SET AREA COLOR 11

   PLOT AREA:d-10,c+5;d-2,c;d-2,c+5;d-10,c+5

   FOR ti=1 TO 500000

   NEXT ti

91 IF a<d+10 THEN GOTO 92 ELSE GOTO 160

92 IF a>d-10 THEN GOTO 110 ELSE GOTO 160

110 IF b<c+10 THEN GOTO 111 ELSE GOTO 160

111 IF b>c-10 THEN GOTO 140 ELSE GOTO 160

140 LET d=150

    LET c=0

    LET i=0

    GOTO 60

160 DRAW disk WITH SCALE(5)*SHIFT(a,b)

    IF c>300 THEN GOTO 400

270 GOTO 60

300 RANDOMIZE

    LET i=1+INT(4*RND)

    LET b=0

    LET a=INT(100*RND)

    GOTO 80

400 RANDOMIZE

    LET m=1+INT(4*RND)

    LET c=0

    LET d=150

    LET i=0

    GOTO 80

500 RANDOMIZE

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

    GOTO 80

600 GOTO 60

    END

螺旋の運動

 20 LET n=2                    ! INPUT n

30 SET WINDOW -1,1,-1,1

40 DRAW axes

45 LET r=0.1

   LET r1=0.12

   LET r2=0.14

   LET r3=0.16

   LET r4=0.18

   LET r5=0.20

   LET r6=0.22

   LET r7=0.24

   LET r8=0.26

   LET r9=0.28

   LET r10=0.30

   LET r11=0.32

   LET r12=0.34

   LET r13=0.36

   LET r14=0.38

   LET r15=0.40

   LET r16=0.42

   LET r17=0.44

   LET r18=0.46

   LET r19=0.48

   LET r20=0.50

   LET r21=0.52

   LET r22=0.54

   LET r23=0.56

   LET r24=0.58

   LET r25=0.60

   LET r26=0.62

   LET r27=0.64

   LET r28=0.66

   LET r29=0.68

   LET r30=0.70

   LET r31=0.72

   LET r32=0.74

   LET r33=0.76

   LET r34=0.78

   LET r35=0.80

   LET r36=0.82

   LET r37=0.84

   LET r38=0.86

   LET r39=0.88

   LET r40=0.90

   LET r41=0.92

   LET r42=0.94

   LET r43=0.96

   LET r44=0.98

   LET r45=1.0

   LET r46=1.02

   LET r47=1.04

   LET r48=1.06

   LET r49=1.08

   LET r50=1.10

50 LET t=t+4*PI/720

   REM CLEAR

   SET COLOR 15

   PLOT AREA: -1,1 ; 1 ,1 ; 1,-1; -1,-1

   DRAW disk WITH SCALE(2.00)*SHIFT(0,0)

   SET COLOR 0

   SET POINT STYLE 7

   PLOT POINTS: r*COS(t*1),r*SIN(t*1)

   PLOT POINTS: r1*COS(t*1.2),r1*SIN(t*1.2)

   PLOT POINTS: r2*COS(t*1.4),r2*SIN(t*1.4)

   PLOT POINTS: r3*COS(t*1.6),r3*SIN(t*1.6)

   PLOT POINTS: r4*COS(t*1.8),r4*SIN(t*1.8)

   PLOT POINTS: r5*COS(t*2),r5*SIN(t*2)

   PLOT POINTS: r6*COS(t*2.2),r6*SIN(t*2.2)

   PLOT POINTS: r7*COS(t*2.4),r7*SIN(t*2.4)

   PLOT POINTS: r8*COS(t*2.6),r8*SIN(t*2.6)

   PLOT POINTS: r9*COS(t*2.8),r9*SIN(t*2.8)

   PLOT POINTS: r10*COS(t*3),r10*SIN(t*3)

   PLOT POINTS: r11*COS(t*3.2),r11*SIN(t*3.2)

   PLOT POINTS: r12*COS(t*3.4),r12*SIN(t*3.4)

   PLOT POINTS: r13*COS(t*3.6),r13*SIN(t*3.6)

   PLOT POINTS: r14*COS(t*3.8),r14*SIN(t*3.8)

   PLOT POINTS: r15*COS(t*4.0),r15*SIN(t*4.0)

   PLOT POINTS: r16*COS(t*4.2),r16*SIN(t*4.2)

   PLOT POINTS: r17*COS(t*4.4),r17*SIN(t*4.4)

   PLOT POINTS: r18*COS(t*4.6),r18*SIN(t*4.6)

   PLOT POINTS: r19*COS(t*4.8),r19*SIN(t*4.8)

   PLOT POINTS: r20*COS(t*5.0),r20*SIN(t*5.0)

   PLOT POINTS: r21*COS(t*5.2),r21*SIN(t*5.2)

   PLOT POINTS: r22*COS(t*5.4),r22*SIN(t*5.4)

   PLOT POINTS: r23*COS(t*5.6),r23*SIN(t*5.6)

   PLOT POINTS: r24*COS(t*5.8),r24*SIN(t*5.8)

   PLOT POINTS: r25*COS(t*6.0),r25*SIN(t*6.0)

   PLOT POINTS: r26*COS(t*6.2),r26*SIN(t*6.2)

   PLOT POINTS: r27*COS(t*6.4),r27*SIN(t*6.4)

   PLOT POINTS: r28*COS(t*6.6),r28*SIN(t*6.6)

   PLOT POINTS: r29*COS(t*6.8),r29*SIN(t*6.8)

   PLOT POINTS: r30*COS(t*7.0),r30*SIN(t*7.0)

   PLOT POINTS: r31*COS(t*7.2),r31*SIN(t*7.2)

   PLOT POINTS: r32*COS(t*7.4),r32*SIN(t*7.4)

   PLOT POINTS: r33*COS(t*7.6),r33*SIN(t*7.6)

   PLOT POINTS: r34*COS(t*7.8),r34*SIN(t*7.8)

   PLOT POINTS: r35*COS(t*8.0),r35*SIN(t*8.0)

   PLOT POINTS: r36*COS(t*8.2),r36*SIN(t*8.2)

   PLOT POINTS: r37*COS(t*8.4),r37*SIN(t*8.4)

   PLOT POINTS: r38*COS(t*8.6),r38*SIN(t*8.6)

   PLOT POINTS: r39*COS(t*8.8),r39*SIN(t*8.8)

   PLOT POINTS: r40*COS(t*9.0),r40*SIN(t*9.0)

   PLOT POINTS: r41*COS(t*9.2),r41*SIN(t*9.2)

   PLOT POINTS: r42*COS(t*9.4),r42*SIN(t*9.4)

   PLOT POINTS: r43*COS(t*9.6),r43*SIN(t*9.6)

   PLOT POINTS: r44*COS(t*9.8),r44*SIN(t*9.8)

   PLOT POINTS: r45*COS(t*10),r45*SIN(t*10)

   PLOT POINTS: r46*COS(t*10.2),r46*SIN(t*10.2)

   PLOT POINTS: r47*COS(t*10.4),r47*SIN(t*10.4)

70

   FOR v=1 TO 100000

   NEXT v

   REM 80 NEXT t

90 GOTO 50

190 END

落ちてくる球を消す

 5 SET WINDOW 0,300,300,0

50 LET a=30

   LET b=0

   LET i=5

   LET c=130

   LET d=0

   LET m=4

   LET e=230

   LET f=0

   LET k=7

   RANDOMIZE

   LET c1=INT(60*RND)

   LET c2=INT(60*RND)

   LET c3=INT(60*RND)

60 FOR ti=1 TO 90000

   NEXT ti

   REM CLEAR

   SET AREA COLOR 0

   PLOT AREA :0,0;300,0;300,300;0,300;0,0

70 LET b=b+i

   LET d=d+m

   LET f=f+k

80 SET AREA COLOR c1

   DRAW disk WITH SCALE(5)*SHIFT(a,b)

   SET AREA COLOR c2

   DRAW disk WITH SCALE(8)*SHIFT(c,d)

   SET AREA COLOR c3

   DRAW disk WITH SCALE(10)*SHIFT(e,f)

90 CHARACTER INPUT NOWAIT: a$

   IF a$ = "i" THEN LET y = y-5

   IF a$ = "j" THEN LET x = x-5

   IF a$ = "l" THEN LET x = x+5

   IF a$ = "m" THEN LET y = y+5

   SET AREA COLOR 1

   REM DRAW disk WITH SCALE(5)*SHIFT(150+x,150+y)

   PLOT AREA: 120+x,150+y ; 170+x ,150+y ; 170+x,170+y ; 120+x,170+y

   IF a<170+x THEN GOTO 92

92 IF a>120+x THEN GOTO 100

   IF c<170+x THEN GOTO 95

95 IF c>120+x THEN GOTO 110

   IF e<170+x THEN GOTO 97

97 IF e>120+x THEN GOTO 120

   GOTO 160

100 IF b<170+y THEN GOTO 102

102 IF b>150+y THEN GOTO 130

110 IF d<170+y THEN GOTO 112

112 IF d>150+y THEN GOTO 140

120 IF f<170+y THEN GOTO 122

122 IF f>150+y THEN GOTO 150

    GOTO 160

130 LET c1=0

    GOTO 160

140 LET c2=0

    GOTO 160

150 LET c3=0

    GOTO 160

160 IF b>300 THEN GOTO 300

    IF d>300 THEN GOTO 400

    IF f>300 THEN GOTO 500

270 GOTO 60

300 RANDOMIZE

    LET i=1+INT(4*RND)

    LET b=0

    LET a=INT(100*RND)

    LET c1=INT(60*RND)

    GOTO 80

400 RANDOMIZE

    LET m=1+INT(4*RND)

    LET d=0

    LET c=INT(200*RND)

    LET c2=INT(60*RND)

    GOTO 80

500 RANDOMIZE

    LET k=1+INT(4*RND)

    LET f=0

    LET e=INT(280*RND)

    LET c3=INT(60*RND)

    GOTO 80

600 GOTO 60

    END

外部絵定義を使って同じ絵を何度も描く

10 DECLARE EXTERNAL PICTURE tri

20 OPTION ANGLE DEGREES

30 SET WINDOW 0,300,300,0

40 DRAW tri(3)

50 DRAW tri(3) WITH SCALE(1.2,1.2)*SHIFT(50,0)

55 DRAW tri(3) WITH SCALE(0.8,0.8)*SHIFT(-50,0)

60 END

100 EXTERNAL PICTURE tri(n)

130 PLOT LINES:100,100;150,100;200,200;100,100

150 END PICTURE

だんご串刺しゲーム

ルーレットおみくじ

波紋が一部欠けてしまうバグについて。